home *** CD-ROM | disk | FTP | other *** search
/ Le Monde De La Mer / Le monde de la mer.iso / pc / club / divers / trumpet / login.cmd
OS/2 REXX Batch file  |  1997-09-30  |  1KB  |  67 lines
  1. #
  2. #   Script de connexion au Club Internet
  3. #
  4. if ![load $init]
  5.   if [query $init "Entrez la chaine d'initialisation du modem"]
  6.     save $init
  7.   end
  8. end
  9.  
  10. if ![load $number]
  11.   if [query $number "Entrez le numΘro de tΘlΘphone"]
  12.     save $number
  13.   end
  14. end
  15. if ![load $username]
  16.   if [username "Entrez votre login"]
  17.     save $username
  18.   end
  19. end
  20. if ![load $pass]
  21.   if [query $pass "Entrez votre mot de passe"]
  22.     save $pass
  23.   end
  24. end
  25. $prompt = ""
  26. $userprompt = "ogin:"
  27. $passprompt = "assword:"
  28. $slipcmd = "slip"
  29. $addrtarg = "y IP adress"
  30. $pppcmd = "ppp"
  31.  
  32. %attempts = 3
  33. output \n
  34. sleep 1
  35. output +++
  36. sleep 2
  37. output ath0\n
  38. sleep 3
  39. display "Initialisation du modem"\n
  40. output atz\n
  41. if ! [input 10 OK\n]
  42.   display "Le modem ne rΘpond pas"\n
  43.   abort
  44. end
  45. output $init\13
  46. input 10 OK\n
  47. %n = 0
  48. repeat
  49.   if %n = %attempts
  50.     display "Trop d'essais de numΘrotation"\n
  51.     abort
  52.   end
  53.   display "Appel des services Grolier Interactive"\n
  54.   output "atdt"$number\13
  55.   %ok = [input 60 CONNECT]
  56.   %n = %n + 1
  57. until %ok
  58. input 10 \n
  59. output \13
  60. input 30 $userprompt
  61. output $username\13
  62. input 30 $passprompt
  63. output $pass\13
  64. display " "\n
  65. display "Si le message My IP address = xxx.xxx.xxx.xxx suit, vous Ωtes connectΘ α Internet"\n
  66.  
  67.